10 POKE51,0:POKE52,144:POKE55,0:POKE56,144:CLR:TEM=36864:ML=49152:SB=53265
20 SP=53269:BC=53280:SC=53281:CC=646:DV=PEEK(186):IFDV<8THENDV=8
22 POKE53281,0:POKE53280,0
30 :
40 SYS57812"TOOLBOX 9000",DV,0:POKE780,0:POKE781,0:POKE782,144:SYS65493
50 SYSTEM+30,"LETTER FONT",DV,2048
60 SYSTEM+30,"LETTER DROP.ML",DV,ML:POKE2,1:SYSML
62 POKE49202,1
70 BX$="_[166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166]_"
72 LI$="[214][214][214][214][214][214][214][214][214][214][214][214][214][214][214][214][214][214][214][214][214][214][214][214][214][214][214][214][214][214][214][214][214][214][214][214][214][214][214]"
80 POKESB,PEEK(SB)AND239
90 PRINTCHR$(142)CHR$(8):POKE53272,19:POKE788,52
100 PRINT"[147]";:FORI=1TO23:PRINT"[214]"SPC(37)"[214]":NEXT
110 PRINT""LI$:PRINT""LI$:PRINT""LI$:PRINT""LI$
200 FORR=1065TO1101:POKE54272+R,7:READDT:POKER,DT:NEXT
210 FORR=1105TO1141:POKE54272+R,7:READDT:POKER,DT:NEXT
220 POKECC,15:FORR=1TO6:SYSTEM+24,2,11+R,BX$:NEXT
230 SYSTEM+27,11,"=================================== "
240 POKE214,19:PRINT:PRINTTAB(7)"LOAD   QUIT   HINT   SOLVE":PRINT
250 SYSTEM+27,21,"USE CRSR KEYS/RETURN OR JOYSTICK 2"
260 MS$(1)="PRESS ANY KEY ":MS$(2)="(Y/N)"
270 SYSTEM+18,208:SYSTEM+18,216:POKESB,PEEK(SB)OR16
280 SYSTEM+45,"LQ"
290 ONF%GOTO300,630,550
300 GOSUB750:DV=JJ:SYSTEM+21,208:M1$="SEARCHING FOR PUZZLE FILES  ":GOSUB660
310 SYSTEM,"$:LD.*",DV,200*256,10,5,9,13,1
320 IFF$=""ANDVAL(E$)THENM1$=E$:M2$=MS$(1):GOSUB680:GOTO300
330 IFF$<>""THEN350
340 M1$="NO PUZZLE FILES FOUND ":M2$=MS$(1):GOSUB680:SYSTEM+21,208:GOTO280
350 NA$=F$:M1$="LOADING "+F$:GOSUB660
360 SYSTEM+42,"",DV:IFVAL(E$)THENM1$=E$:M2$=MS$(1):GOSUB680:GOTO300
370 SYSTEM+30,NA$,DV,50688
380 SYSTEM+42,"",DV:IFVAL(E$)THENM1$=E$:M2$=MS$(1):GOSUB680:GOTO300
390 SYSTEM+21,216:POKE2,2
392 POKE214,19:PRINT:PRINTTAB(7)"LOAD   QUIT   HINT   SOLVE":PRINT
393 CLOSE15
400 SYSML:FL=PEEK(2):IFFLTHEN420
410 POKESP,0:SYSTEM+18,208:GOTO580
420 IFFL=13THEN480
430 POKESP,0:SYSTEM+18,208
440 M1$="QUIT THIS PUZZLE?  ":M2$=MS$(2):GOSUB660
450 GETD$:IFD$="N"THENSYSTEM+21,208:POKE2,4:POKESP,1:GOTO400
460 IFD$<>"Y"THEN450
470 SYSTEM+21,216:GOTO280
480 R=5
490 M1$="YOU'VE SOLVED THE PUZZLE  ":M2$="":GOSUB660:FORT=1TO400:NEXT
500 M1$="":GOSUB660:FORT=1TO400:NEXT:R=R-1:IFRTHEN490
510 GOTO470
530 POKE198,0:WAIT198,1:POKE198,0
540 :
550 SYSTEM+18,208:IFPSTHEN580
560 M1$="THERE IS NO PUZZLE TO SOLVE  ":M2$=MS$(1):GOSUB680
570 SYSTEM+21,208:GOTO280
580 M1$="SOLVE THE PUZZLE?  ":M2$=MS$(2):GOSUB660
590 GETD$:IFD$="Y"THEN620
600 IFD$<>"N"THEN590
610 SYSTEM+21,208:IFFL=0THENPOKE2,4:POKESP,1:GOTO400
620 SYSTEM+21,208:POKE2,3:SYSML:PS=0
622 POKE214,19:PRINT:PRINTTAB(7)"LOAD   QUIT   HINT   SOLVE":PRINT
624 GOTO280
630 SYSTEM+18,208:M1$="QUIT LETTER DROP? ":M2$=MS$(2):GOSUB680
640 IFD$<>"Y"THENSYSTEM+21,208:GOTO280
650 GOTO690
660 SYSTEM+15,1,37,19,22,160,13:PRINT"[153]";:SYSTEM+27,20,M1$:M1$=""
670 SYSTEM+27,21,M2$:M2$="":RETURN
680 GOSUB660:POKE198,0:WAIT198,15:GETD$:RETURN
690 GOTO40000
750 SYSTEM+15,16,22,6,11,160,13:PRINT"[153]";
760 FORI=0TO3:SYSTEM+24,17,7+I,STR$(8+I):NEXT
770 IFM1$<>""THENGOSUB660:GOTO790
780 M1$="PLEASE SELECT DESIRED DRIVE ":M2$="CRSR/RETURN ":GOSUB660
790 SYSTEM+48,7,17,20,4,13,1,133:JJ=F%+7:CLOSE2:OPEN2,JJ,2:CLOSE2
800 RETURN::::IFSTTHEN790
810 RETURN
820 :
830 DATA 195,195,195,195,195,195,195,195,194,195,198,199,201,202,201,202,198
840 DATA 199,198,205,195,195,208,209,198,205,212,213,198,205,195,195,195,195
850 DATA 195,195,195,195,195,195,195,195,195,195,195,196,197,196,200,203,204
860 DATA 203,204,196,200,206,207,195,195,210,211,206,207,214,215,216,195,195
870 DATA 195,195,195,195,195,195,195
880 :
10000 DV=PEEK(186):N$="LETTER DROP":OPEN15,DV,15,"S0:"+N$:CLOSE15:SAVEN$,DV:END
40000 FORI=0TO21:POKE828+I,8+I:NEXT
40010 IFDV<8ORDV>29ORDV=8THEN40030
40020 A=PEEK(828):B=PEEK(828+DV-8):POKE828,B:POKE828+DV-8,A
40030 A$="HELLO CONNECT":FORJ=8TO29:I=PEEK(828+J-8):IFI=14THENNEXT
40040 CLOSE2:OPEN2,I,2:CLOSE2:IFSTTHEN40060
40050 CLOSE15:OPEN15,I,15,"R0:"+A$+"="+A$:INPUT#15,ER:CLOSE15:IFER=63THEN40070
40060 NEXT:PRINT"[147]":POKE53272,23:POKE186,8:END
40070 Q$=CHR$(34):POKE646,PEEK(53281):PRINT"[147]":POKE53272,23
40080 PRINT"[147]P[207]2048,0:P[207]44,8:P[207]43,1:P[207]56,160:P[207]55,0:CLR:L[207]"Q$A$Q$","I
40090 PRINT"RUN:":POKE631,13:POKE632,13:POKE198,2:END